Bom pessoal, é o seguinte: tenho um projeto que funciona perfeitamente em Win98. Foi feito em VB6 SP5, Access 97 ADO 2.8.

Acontece que, qdo copiei a pasta para testar e atualizar aki em casa, com Windows XP, sempre que o sistema acessa uma variável de banco de dados, recebo este erro.

Posto o código abaixo.

 

          If Banco.State = 0 Then
                    'Banco.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & CBanco & "'"
                    Banco.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source='" & CBanco & "'"
                   
                    Banco.Open
          Else
                    Banco.Close
                    Banco.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" & CBanco & "'"
                    Banco.Open
          End If
O erro ocorre de cara na linha Banco.State, como se eu não tivesse definido a variavel em questão, a qual está definida no modulo.

("Object variable or With block variable not set")

 

Tem solução este problema?

Agradeço a todos.

 

[]´s

a sua variavel Banco é do tipo Recordset certo?

então tealvez necessite de fazer o seguinte antes do seu Código:

Set Banoco = New Recodset

Olha cara tenta fazer o que o bruxuega disse, pode ser também porque vc está tentando abrir o oledb 3.51 e não está instalado na máquina ou tente fazer o seguinte: ao invés de usar banco.state = 0 use banco.state = adstateopen isso indica se o banco está aberto.

 

Espero ter ajudado

 

T+