vb_koneksi_sqlserver_menggunakan_user_windows.vb

Private Function GetOpenConnection() As SqlConnection
    Dim conn As SqlConnection = Nothing

    Try
        ' . = localhost
        ' sqlexpress2008 = instance sql server
        ' retail = nama database
        Dim strConn = "Data Source=.\sqlexpress2008;Initial Catalog=Retail;Integrated Security=True"

        conn = New SqlConnection(strConn)

        conn.Open()

    Catch ex As Exception

    End Try

    Return conn
End Function