Private Sub Form_Load()
    ' We must initalize the databases
    
    Set Con = New ADODB.Connection
    Set Rst = New ADODB.Recordset
    
    Dim sCon As String
    Dim sSQL As String
    
    sCon = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & App.Path & "\TinyIRC.mdb"
    
    Con.Open sCon
    
    MsgBox "DB Connection is opened", vbInformation, "Debug Mode"
    
    sSQL = "SELECT TOP 10 ServerName " & "FROM Connection"
    
    Set Rst = Con.Execute(sSQL)
    
    MsgBox "SQL Found - " & sSQL
    
    Do Until (Rst.EOF)
        cboServer.AddItem Rst("ServerName").Value
        Rst.MoveNext
    Loop
    
End Sub

Private Sub Form_Terminate()
    ' We must deinitalize the databases
    
    Set Con = Nothing
    Set Rst = Nothing
    
End Sub