What is wrong with this?

[mousewonders]

        Dim con As New ADODB.Connection
        Dim con_string As String
        Dim sql As String
        Dim rs As New ADODB.Recordset
        con_string = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\leightr\My Documents\culverflex.mdb;"
        con.Open(con_string)
        sql = "delete * from whoishere where userid = " & ComboBox1.Text & ""
        rs = con.Execute(sql)

I get a Data Mismatch error on: rs = con.Execute(sql)