Class Database

Imports System.Data.SqlClient
Public Class Database
    Public konek As SqlConnection
    Public Sub koneksi()
        Try
            konek = New SqlConnection("data source = KK-PC\MSSQLSERVER1; initial catalog = Inventaris; integrated security = true")
            konek.Open()
        Catch ex As Exception
            MsgBox("Koneksi gagal!", vbCritical)
        End Try
    End Sub
End Class