Private Conn As OleDb.OleDbConnection = Nothing
    Private Cmd As OleDb.OleDbCommand
    Private Da As OleDb.OleDbDataAdapter
    Private ConnectionString As String
    Private Ds As DataSet

    Public Function InizializeConnection(ByVal pathDB) As DataSet
        Try
            ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathDB & ";Persist Security Info=False"
            Conn = New OleDb.OleDbConnection(ConnectionString)
            Cmd = New OleDb.OleDbCommand("TuaQuery", Conn)
            Da = New OleDb.OleDbDataAdapter(Cmd)
            Da.Fill(Ds, "Table1")
            Return Ds
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
    End Function