ini adalah contoh module pada contoh Program Visual Basic (VB) Penerimaan karyawan baru

Langkah pertama buka aplikasi Visual Basic
- pilih "project" pada menu bar
- dan pilih "add module"
- pastekan dibawah ini

Public KON As New ADODB.Connection
Public rsdatapelamar As ADODB.Recordset
Public rsjadwaltest As ADODB.Recordset
Public rstanggaltest As ADODB.Recordset
Public rskaryawan As ADODB.Recordset
Public rslolostest As ADODB.Recordset
Public rsgagaltest As ADODB.Recordset
Public rstanggalmedical As ADODB.Recordset
Public rsjadwalmedical As ADODB.Recordset
Public rsgagalmedical As ADODB.Recordset
Public rslolosmedical As ADODB.Recordset
Public rsuser As ADODB.Recordset



Sub koneksi()
'MEMBUKA OBJEK
Set KON = New ADODB.Connection
Set rsdatapelamar = New ADODB.Recordset
Set rsjadwaltest = New ADODB.Recordset
Set rskaryawan = New ADODB.Recordset
Set rstanggaltest = New ADODB.Recordset
Set rslolostest = New ADODB.Recordset
Set rsgagaltest = New ADODB.Recordset
Set rsjadwalmedical = New ADODB.Recordset
Set rstanggalmedical = New ADODB.Recordset
Set rsgagalmedical = New ADODB.Recordset
Set rslolosmedical = New ADODB.Recordset
Set rsuser = New ADODB.Recordset

KON.ConnectionString = "DSN=penerimaankaryawan"
KON.Open
End Sub