Membuat Module di Microsoft Visual Basic

Membuat Module

 

Script Module

 

Public conn As New ADODB.Connection

Public Rs As New ADODB.Recordset

Public StrConnect As String

Public StrSQL As String

Public Sub Konek()

StrConnect = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" + App.Path + "\perpusMARI.mdb"

If conn.State = adStateOpen Then

    conn.Close

    Set conn = New ADODB.Connection

    conn.Open StrConnect

Else

    conn.Open StrConnect

End If

End Sub