Koneksi ORACLE dengan ADODB dengan Visual Basic 6

Project Code ;

Option Explicit
Public CnORA As ADODB.Connection
Public Rs As New ADODB.Recordset

Private Sub Command1_Click() ‘ tombol Open Koneksi
Set CnORA = New ADODB.Connection
CnORA.ConnectionString = “Provider=MSDAORA.1;Password=SKA;User ID=SKA;Data Source=SAUFI;Persist Security Info=True”
CnORA.Open
If CnORA.State = adStateOpen Then
MsgBox “Koneksi OK”
Else
MsgBox “Koneksi Gagal”
End If
End Sub

Private Sub Command2_Click() ‘ tombol close koneksi
If CnORA.State = adStateOpen Then
CnORA.Close
MsgBox “Koneksi Tertutup”
Else
MsgBox “Koneksi Sudah Tertutup”
End If
Unload Me
End Sub

Private Sub Command3_Click() ‘tombol getdata
If Rs.State = adStateOpen Then Rs.Close
Rs.Open “Select * from TBLORDJUALHEADER”, CnORA, adOpenKeyset, adLockReadOnly
Set vsf.DataSource = Rs
vsf.Refresh
End Sub