modules to connect with database in vb6.0

Option Explicit
Public conn  As ADODB.Connection
Public rec As ADODB.Recordset, rec1 As ADODB.Recordset, rec2 As ADODB.Recordset
Public esql As String, esql1 As String, ravi As String, username As String, startdt As Date, datee As Date, Okay As Boolean
Public formu As String, tester As Variant, mane As String
Public strFileName As String, appword As Word.Application, wrdDoc As Word.Document
Public good As String, PolicyCount As Integer, Family As String
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public tago As Integer
Public Function connect()
   ravi = Chr(34)
   good = Chr(35)
   Set rec = New ADODB.Recordset
   Set rec1 = New ADODB.Recordset
   Set rec2 = New ADODB.Recordset
   Set conn = New ADODB.Connection
   esql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Karunupdated.mdb"     &  "; Persist Security Info=False"
   conn.Open (esql)
   Okay = True

End Function

Public Function Disconnect()
   If Okay = False Then Exit Function
   conn.Close
   Set conn = Nothing
   Okay = False
End Function