iniciando no vb.net (Conexão)

[Macêdo]

Pessoal

To começando e estou com o seguinte problema:

No modulo declarei a conexao e a strng e criei as subs de para conectar e desconectar

Module Module1
    Public cnn As New OleDb.OleDbConnection
    Public CAMINHO As String
    Public Sub conectar()
        CAMINHO = "C:\Arquivos de programas\PROGRAMAS TESTES\Express 2005\Sisloc\SISLOC.MDB"
        Dim cnn As New OleDb.OleDbConnection
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & CAMINHO & "'"
        cnn.Open()
    End Sub

    Public Sub desconectar()
        cnn.Dispose()
        cnn.Close()
        cnn = Nothing
    End Sub
End Module

No Load abro a conexao

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.TabIndex = 0
        conectar()
    End Sub

so fecho a con no fechar do form

Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
        desconectar()
        Me.Close()
        Me.Dispose()
    End Sub

quando abro o form a primeira vez consigo incluir registros

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cmd As OleDb.OleDbCommand = cnn.CreateCommand
        cmd.CommandText = "insert into clientes (nome) values ('" & Text2.Text & "')"
        Try
            cmd.ExecuteNonQuery()
            MsgBox("Registro incluido")
        Catch erro As Exception
            MsgBox("Erro " & vbCrLf & vbCrLf & erro.ToString)
        End Try

    End Sub

Mas quando fecho o form e abro novamente da ERRO na conexao

como concerto isto ?

[OSJunior]

Veja que você está declarando o cnn duas vezes: uma fora da sub (linha 2) e outra dentro (linha 6).

[Macêdo]

Realmente, deixei esta duplicidade, mas não estava assim, isto aconteceu numa das muitas vezes que tentei fazer mudanças no codigo.

O erro mesmo acontece quando tento abrir e fechar a conexão a cada procedimento, mas quando abro a conexão com o LOAD do MDI e deixo-a aberta não gera mais o erro, consigo trabalhar nos outros forms, fazer diversas interações com o BD e fecho a conexão no Deactivate do MDI

Esta forma de proceder esta correta ou o melhor no .NET seria fechar a conexão e abrir a cada procedimento ? no VB6.0 eu sempre fiz do jeito que falei abro no iniciar do MDI e deixo aberta.

[quintelab]

Pelo código da pra entender que sua aplicação é windows. No caso de aplicações windows acredito que possa trabalhar dessa forma mantendo a conexão aberta. Só faça uns testes com uma quantidade real de usuários para ver se seu banco trava ou algo do tipo.

Abraços...