hello I have the following problem are
I run the program on the pc with windows xp and it works fine but the laptop with W7 gives me the error you attach the code where the error gives you copied it here

lparameters ccomando as string, lcparam as string
cconnstring=thisform.negocios.conexion()
oconn = createobject("ADODB.Connection")
ocomando = createobject("ADODB.Command")
ors = createobject("ADODB.Recordset")
oconn.connectionstring = cconnstring
oconn.connectiontimeout = 60
**===>  oconn.open **here error
if vartype(lcparam)="U" or vartype(lcparam)="L"
    lcparam = ""
endif
ocomando.commandtext = ccomando+" "+lcparam
ocomando.activeconnection = oconn
ors = ocomando.execute()
oconn = .null.
ocomando = .null.
return ors