VB6 & SQL Server Connection & Execute SQL using ADOBD

'Add reference ADODB

'Write it into module

Public Conn As ADODB.Connection

Public Sub DatabaseConnection()
Dim ConString As String
Set Conn = New ADODB.Connection
ConSting = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DataBaseName;Data Source=ServerName"
Conn.Open ConSting
End Sub

'Call DatabaseConnection in Form_load() event
'Then Execute any SQL by Conn.Execute("Sql")