Visual Basic

Public Function fInsert(ByVal strName As String, ByVal strID As Integer, ByVal strInbound As Integer, ByVal strOutbound As Integer, ByVal strDstart As String, ByVal strDend As String, ByVal strRemarks As String)
        Try
            strSQL = "Insert into Splits"
            strSQL += " (SplitID, SplitName, Inbound,"
            strSQL += " Outbound, DateStarted, DateEnded, Remarks)"
            strSQL += " Values ('" & strID & "',"
            strSQL += " '" & strName & "',"
            strSQL += " '" & strInbound & "',"
            strSQL += " '" & strOutbound & "',"
            strSQL += " '" & strDstart & "',"
            strSQL += " '" & strDend & "',"
            strSQL += " '" & strRemarks & "')"

            Dim cmdInsert As New OdbcCommand()

            cmdInsert.CommandText = strSQL
            cmdInsert.Connection = cnn
            cmdInsert.ExecuteNonQuery()
        Catch e As OdbcException
            Throw e
        End Try
        Return True
    End Function

Public Sub SetDBConf(ByRef CN as ADODB.Connection)<br />
     CN.Provider="Microsoft.JET.OLEDB.4.0"<br />
     CN.Properties("Data Source")="[path to mdb file]"<br />
     CN.Properties("Jet OLEDB:Database Passowrd")="Password"<br />
End Sub

This procedure produces type mismatch error. How can I resolve it.