Create a database connection script in a VB 6.0 Modul

Now, we will create a database connection script in a VB 6.0 Modul

Step 1
Click Menu Project--->Add Modul

Step 2
Add this scrip to the Module
|-----
Option Explicit
Public oConn As ADODB.Connection
Public rsXData As ADODB.Recordset
Public xSQL As String

Public Sub opendb()
  Set oConn = New ADODB.Connection
  Set rsXData = New ADODB.Recordset
  oConn.CursorLocation = adUseClient
  oConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                       "Data Source=" & App.Path & "\data.accdb;Jet OLEDB:Database Password=0rch1d;"
End Sub|-----



How  to create a Visual Basic 6.0 Modul? Here it is,...
 
Here references that you could to learn.