Module mdlDisplaySearchData    Public Sub DataBind(ByVal ConnStr As String, ByVal Table As String, ByVal frmConntrol As DataGridView, ByVal strField As String, ByVal strValue As String)
        '连接数据库
        Dim cn As New OleDb.OleDbConnection(ConnStr)
        '打开数据库
        cn.Open()        '设置执行SQL语句
        Dim strSQL = "Select * from " + Table
        If (strValue <> "") Then
            strSQL = strSQL + " where " + strField + "= '" + strValue + "'"
        End If
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(strSQL, cn)
        cmd.CommandType = CommandType.Text
        Dim da As New OleDb.OleDbDataAdapter()
        da.SelectCommand = cmd
        '执行查询命令
        cmd.ExecuteNonQuery()        '填充数据集
        Dim ds As New DataSet
        da.Fill(ds, Table)        '设置显示的数据表
        frmConntrol.DataSource = ds.Tables(Table)
    End SubEnd Module
我调用以上模块时系统提示我,类型错误,这是加粗的那个地方
它是字符型,但我在调用这个模块并进行数据库查询时,既有字符型又有数字型.我应如何做?
请高手指点?谢谢