Private Sub testcase()
    Dim cn As ADODB.Connection

    
    Set cn = New ADODB.Connection
    cn.Open "Provider=MSDASQL;DRIVER={MySQL ODBC 3.51 Driver};db=mysql;SERVER=laurin1;user=root;"
    Debug.Print "4.0.21-nt", fieldexists(cn, "user", "password")
    cn.Close
    ' result is false
        
    Set cn = New ADODB.Connection
    cn.Open "Provider=MSDASQL;DRIVER={MySQL ODBC 3.51 Driver};db=mysql;SERVER=laurin2;user=root;"
    Debug.Print "4.0.17-nt", fieldexists(cn, "user", "password")
    cn.Close
    ' result = true


End Sub

Private Function fieldexists(ByRef cn As ADODB.Connection, ByVal tablename$, ByVal fieldname$)
    With cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, tablename, fieldname))
        fieldexists = Not (.BOF Or .EOF)
        .Close
    End With
End Function