Help to correct the code for text box
I have two text box on vb form and i am using access table . i want to receive data from two column in to my two text box .
I have write the code and debug it successfully but there is no data show in the boxes.
Please guide me to solve my problem.Thanks
The code are
Public Class Form1
Dim cn As System.Data.OleDb.OleDbConnection
Private Sub EmplysrceDataBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
cn = New System.Data.OleDb.OleDbConnection
cn.ConnectionString = ("Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=E:\a.mdb;")
cn.Open()
Showitems()
End Sub
Private Sub Showitems()
Dim ds As New DataSet
Dim dt As New DataTable
ds.Tables.Add(dt)
Dim da As New OleDb.OleDbDataAdapter
da = New OleDb.OleDbDataAdapter("Select * From EmplysrceData", cn)
da.Fill(dt)
TextBox1.Text = dt.Rows(1).Item(0)
TextBox2.Text = dt.Rows(1).Item(1)
cn.Close()
End Sub
End Class