[RESOLVED] Error Help Please

[Jamie_Garland]

Im coming across this error you can see it on the screenshot can anyone help me please.?

This is the connection code.

Option Explicit
 
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public days As Integer
Public Username As String
 
Public Sub Main()
 
    Set con = New ADODB.Connection
                                                                    
    con.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=76.76.18.105;DATABASE=webspace_money;USER=webspace_money;PASSWORD=d82f1fc;"
    
    frmLogin.Show
    
End Sub