Sub LoadDatabase(Dir As String, FileName As String)
If SQL1.IsInitialized=false Then
SQL1.Initialize(Dir , FileName, False)
End if
Query1="SELECT ID, IssueName, IssueDescription, Symptoms FROM issues WHERE ID = "&Main.IssueID
Cur = SQL1.ExecQuery(Query1)
Cur.Position=0
strIssueName = Cur.GetString("IssueName")
strSymptoms = Cur.GetString("Symptoms")
Cur.Close
End Sub