Hi All

I have adapted a connection string i used alot in vb6 to what, after much research i think it should look like now. I added some code to a button, i dont get any errors and no result in the textbox, please any pointers in the righ direction will be much appreciated.

Code:
Imports System.Data
Module modMain
    Public MyConn As New OleDb.OleDbConnection()
    Public Da As OleDb.OleDbDataAdapter
    Public rs As New DataTable
    Public us As New DataSet
    Public Query As String
    Public Sub ActiveReadServer(ByVal Query As String)
        MyConn = New OleDb.OleDbConnection()
        Da = New OleDb.OleDbDataAdapter(Query, MyConn)
        rs = New DataTable

        MyConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test App\data.accdb;Jet OLEDB:Database Password=hello;"
        MyConn.Open()

        'rs.open(Query, MyConn, adOpenStatic, adLockReadOnly)
    End Sub
    Public Sub ActiveUpdateServer(ByVal Query As String)
        MyConn = New OleDb.OleDbConnection()
        Da = New OleDb.OleDbDataAdapter(Query, MyConn)
        us = New DataSet

        MyConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test App\data.accdb;Jet OLEDB:Database Password=hello;"
        MyConn.Open()
        'us.Open(Query, MyConn, , adLockBatchOptimistic)
    End Sub
End Module
Thats from modMain.

Code:
 Private Sub cmdGet_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGet.ClickEvent
        ActiveUpdateServer("SELECT First_Name FROM Customers")
        txtName.Text = us.Tables("Customers").Rows(0).Item("First_Name")
    End Sub
Many Thanks in advance
AJ