How to "Connect" ms-access using vb.net / vb 2010

See more:

VB6

I am new in vb6 but I had made the connection by using Microsoft.Jet.OLEDB.4.0;Data
And the MS Access Data and viewed it in MSFlxeGrid it works properly but now I wants to use same code in VB2010 but it does not work pls help me.

Thank in advance

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\myAccess2007file.accdb;Persist Security Info=False;
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\system32\Customer\CustData.mdb;Persist Security Info=False"
rs.Open QRY, cn, adOpenStatic

If rs.RecordCount = 0 Then

Else

MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = rs.RecordCount + 1     
  
MSFlexGrid1.Col = 0
Label1.Caption = rs.Fields(0)
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "NAME"

MSFlexGrid1.Col = 1
Label2.Caption = rs.Fields(1)
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "ADDRESS"

MSFlexGrid1.Col = 2
Label3.Caption = rs.Fields(2)
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "D.O.B."

MSFlexGrid1.Col = 3
Label4.Caption = rs.Fields(3)
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "TELEPHONE"

For I = 1 To rs.RecordCount

MSFlexGrid1.Col = 0
MSFlexGrid1.Row = I
MSFlexGrid1.Text = rs.Fields(0)

MSFlexGrid1.Col = 1
MSFlexGrid1.Row = I
MSFlexGrid1.Text = rs.Fields(1)

MSFlexGrid1.Col = 2
MSFlexGrid1.Row = I
MSFlexGrid1.Text = rs.Fields(2)
MSFlexGrid1.CellBackColor = vbRed

MSFlexGrid1.Col = 3
MSFlexGrid1.Row = I
MSFlexGrid1.Text = rs.Fields(3)
MSFlexGrid1.CellBackColor = vbRed

rs.MoveNext

Next I

End If

[edit] separate text from code inside the tags [/edit]