#2 Koneksi

Imports System.Data.SqlClient
Module Module1
    Public konek As SqlConnection
    Sub koneksi()
        Try
            konek = New SqlConnection("Data Source=KK-PC;Initial Catalog=Jadwal;Integrated Security=True")
            konek.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Module