VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsEnv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private moCnn As ADODB.Connection

Private Sub Class_Initialize()
'<DONE 08/18/02>
    Set moCnn = New ADODB.Connection

End Sub

Private Sub Class_Terminate()
'<DONE 08/18/02>
    Set moCnn = Nothing

End Sub

Public Property Get Cnn() As ADODB.Connection
'<DONE 08/18/02>
    Set Cnn = moCnn

End Property

Public Function AccessConnect() As Boolean
'<DONE 08/18/02>
    On Error GoTo No_Bugs
    
    If Cnn.State = adStateClosed Then
        Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\nk.mdb;Mode=Share Deny None;"
        Cnn.Open
        AccessConnect = True
    Else
        Cnn.Close
        Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\nk.mdb;Mode=Share Deny None;"
        Cnn.Open
        AccessConnect = True
    End If
    
    Exit Function
    
No_Bugs:
    
    If Err.Number = "-2147217843" Then
        AccessConnect = False
    Else
        MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbInformation
        AccessConnect = False
    End If
    
End Function

Public Function getkaraoke() As ADODB.Recordset

    Dim oRs As ADODB.Recordset
    Dim ssql As String
    
    ssql = "SELECT *"
    ssql = ssql & " FROM"
    ssql = ssql & " sunfly"
   

    Set oRs = New ADODB.Recordset
    oRs.Open ssql, goEnv.Cnn, adOpenKeyset, adLockOptimistic, adCmdText
    Set getkaraoke = oRs
    Set oRs = Nothing
    Exit Function

    
No_Bugs:
    
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbInformation

End Function