Dim rst As New ADODB.Recordset
Dim iSQL As String
On Error GoTo ErrDB
iSQL = "Select Computer.*,SysCode.SysName From Computer,SysCode where Computer.PCType=SysCode.SysCode And SysCode.SysCodeType='PCType' Order by Computer.PCCode"
rst.Open iSQL, gDatabase
Public Function ConnDB() As Boolean
gDBConnString = "DSN=fasclient;Password=passwd;User ID=fas"
ConnDB = True
If gDatabase.State = adStateClosed Then
Err.Clear
On Error Resume Next
gDatabase.ConnectionString = gDBConnString
gDatabase.CursorLocation = adUseClient
gDatabase.Mode = adModeUnknown
gDatabase.Open
If Err Then
ConnDB = False
End If
Err.Clear
End If
End Function