script untuk modul penjualan menggunakan visual basic 06

Untuk sebuah program membutuhan sebuahmodul yang digunnakan dalam pembuatan program penjualan agar mempermudah kinerja admin dalam menyelesaikan sebuah project.. berikut nii modulnya yya..

Option Explicit
Public conn As ADODB.Connection
Public CUS As ADODB.Recordset
Public BRG As ADODB.Recordset
Public PENJUALAN As ADODB.Recordset
Public SqlInsert As String
Public SqlUpdate As String
Public cmd As ADODB.Command
Public dbServer As String
Public Sub opendb()
Dim dbUser As String, dbPassword As String, dbName As String
dbUser = "LAT_UKK"
dbPassword = "UKK"
dbName = "UKK"
dbServer = "CRACKER"
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;User ID=" & dbUser & ";Password=" & dbPassword & ";Initial Catalog=" & dbName & ";Data Source =" & dbServer
End Sub

Public Function OpenTable(sqlStr As String) As ADODB.Recordset
Set OpenTable = New ADODB.Rrcordset
OpenTable.Open sqlStr, conn, adOpenDynamic, adLockOptimistic
End Function

Public Sub ExecQuery(sqlStr As String)
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = sqlStr
cmd.Execute
End Sub

semogga bermanfaat yya nii modull..
mavv klo gga gto jelas karena saya pun sedang dalam masa pembelajaran..
terimakasih..