Ta Certa Essa Conexao ?

[mestre fyoda]

não sei o q ta acontecendo .

Ta dando esse erro : object variable or with block variable not set .

Mostra.frm

set rs = cn.Execute("select * from Cliente")

Module :

Global cn As ADODB.Connection

Global rs As ADODB.Recordset

Private Sub Main()

Dim strArquivo As String

Dim strLocal As String

Dim Conexao As String

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

Set cn = CreateObject("ADODB.Connection")

Conexao = "Driver={SQL Server};" & _

"Server=RAFAEL;" & _

"Database=Biblioteca;" & _

"Uid=sa;Pwd=janio1;"

cn.Open Conexao

End Sub

[kuroi]

onde você chama a procedure q abre a conexao?

essa sub main deve ser chamada de algum lugar do programa. não tem sentido você digitar todo o codigo e não executar.

outra coisa, ela deve ser declarada com Public Sub para poder ser chamada de outros formularios.

[mestre fyoda]

mano não presiza chama não .

so você ir em Project1 Propriedades e coloca sub Main .

[kuroi]

so você ir em Project1 Propriedades e coloca sub Main .

não sabia disso não...

meio estranho esse erro. qual é a linha q dá? essa:

set rs = cn.Execute("select * from Cliente")

???

[mestre fyoda]

já foi resolvido mano , porque eu não chamava a função que nem você tinha me dito .

ai fui na propriedade dop projeto e coloquei a Sub Main e paro o erro , mas detalhe .

pra que funcione você tera q coloca o comando :

Form1.Show

dentro da sub main se não ele nem executa nenhum formulario .