If e.KeyCode = Keys.Enter Then

Dim ara As String
ara = MaskedTextBox1.Text.ToString
ds = New DataSet

If ds.Tables("okuyucu").Rows(ara).Item(0) Then >>>> Şu satırda Nesne başvurusu bir nesnenin orneğine ayarlanmadı.
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
If ds.Tables(0).Rows(i).Item(0).ToString "" Then
TextBox1.Text = ds.Tables(0).Rows(i).Item(1)
TextBox2.Text = ds.Tables(0).Rows(i).Item(2)
TextBox3.Text = ds.Tables(0).Rows(i).Item(3)
ComboBox1.Text = ds.Tables(0).Rows(i).Item(4)
MaskedTextBox2.Text = ds.Tables(0).Rows(i).Item(5)
End If
Next
End If
End If

Yukarda boyle bi hata veriyor.Benim istediğim maskedtextbox'ya yazdın numarayı enter'e basıp ordaki bilginin diğer bilgileri oldukları nesnelere bilgisini cekmek.
Yardım edenlere şimdiden teşekkurler.
__________________