Koneksi VB.Net dengan SQL Server

Imports System.Data

Imports System.Data.Sql

Module Module1

    Public Dtbase As New OleDb.OleDbConnection

    Public Tampil As New OleDb.OleDbCommand

    Public Tampil2 As New OleDb.OleDbCommand

    Public Tampil3 As New OleDb.OleDbCommand

    Public Tampil4 As New OleDb.OleDbCommand

    Public Tampil5 As New OleDb.OleDbCommand

    Public Tampil6 As New OleDb.OleDbCommand

    Public Tampil7 As New OleDb.OleDbCommand

    Public Tampil8 As New OleDb.OleDbCommand

    Public Tampil9 As New OleDb.OleDbCommand

    Public Tampilkan As OleDb.OleDbDataReader

    Public Grid As New OleDb.OleDbDataAdapter

    Public DS As New DataSet

    Public Tabel, hasilcek As String

    Public Sub koneksi()

        Try

            Dtbase.Close()

Dtbase.ConnectionString = "Provider=SQLOLEDB.1:Integrated Security=SSPI;Persist Security info=False;Initial Catalog=Penjualan_komputer;Data Source=;User ID=sa"

            Dtbase.Open()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

End Module