Button Cari

button cari
Cari = InputBox("Masukkan NPM ")
Koneksi.Close()
Koneksi.Open()
SQLCommand.Connection = Koneksi
SQLCommand.CommandType = CommandType.Text
SQLCommand.CommandText = "SELECT * FROM TUAS where NPM ='" & Cari & "'"
SBaca = SQLCommand.ExecuteReader
SBaca.Read()
If SBaca.HasRows = True Then
MessageBox.Show("Data Ada ")
TextBox1.Text = Cari
TextBox2.Text = SBaca("Nm_Matkul")
TextBox3.Text = SBaca("Smstr")
TextBox4.Text = SBaca("SKS")
Else
MessageBox.Show("Data Tidak Ada ")
End If

Koneksi.Close()