è questa qua:

Metto anche chiudi connessione
codice:
 Public Sub ApriConnessione()
        Me.objconn = New OleDbConnection(Me.stringaconn)
        Me.objcomm = New OleDbCommand(Me.stringasql, Me.objconn)
        Me.objconn.Open()
    End Sub


    Public Sub ChiudiConnessione()
        Me.objconn.Close()
    End Sub