Koneksi

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call Jurusan()

    End Sub

    Sub Jurusan()

        Call Koneksi()

        Tampil2.Connection = Database

        Tampil2.CommandType = CommandType.Text

        Tampil2.CommandText = "Select * from Jurusan where Kd_Jurusan =' " & Trim(TextBox1.Text) & " ' "

        Tampilkan = Tampil2.ExecuteReader

        If Tampilkan.HasRows = True Then

            While Tampilkan.Read()

                If IsDBNull(Tampilkan("Kd_Jurusan")) Then

                    TextBox2.Text = "-"

                Else

                    TextBox2.Text = Tampilkan("Nama_Jurusan")

                End If

            End While

        End If

    End Sub

End Class