[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

حاول أخي الكريم .. إضافة شرط و جرّب ..

كود :

     Dim da As New OleDbDataAdapter("Select * from LETTERS", con)
       Dim dt As New DataTable
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           TextBox17.Text = dt.Rows(BindingContext(dt).Position).Item(3)
       End If

تحياتي