[fireswored1]

لا بس جربت استخدم كود تاني وبرده عمل خطاء في "dt"

كود :

'Dim q As String = "select * from new_data where ID='" & techang.Text & "'"
       'Using con As OleDb.OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=logcode.mdb;;Jet OLEDB:Database Password=8294;")
       '    Using cmd As OleDbCommand = New OleDbCommand(q, con)
       '        Using da As New OleDb.OleDbDataAdapter()
       '            da.SelectCommand = cmd
       '            Using dt As New DataTable
       '                da.Fill(dt)
       '                If dt.Rows.Count > 0 Then
       '                    Label2.Text = dt.Rows(0)(3).ToString()
       '                    Label1.Text = dt.Rows(0)(4).ToString()

       '                End If
       '            End Using
       '        End Using
       '    End Using