一个强制转换的问题!

Question

        dim objconn as new sqlconnection("server=local;database=Northwind;uid=sa;pwd=")
        Dim strSQL As String = "Insert into BBS_Article(SubTime) values(@SubTime)"
        Dim cmd As SqlCommand
        objConn.open
        cmd = New SqlCommand(strSQL, objconn)
 
        cmd.Parameters.Add(New SqlParameter("@SubTime", SqlDbType.SmallDateTime, "SubTime"))
        cmd.Parameters("@SubTime").Value = Now
        cmd.ExecuteNonQuery()        异常详细信息: 从字符串“SubTime" 到 Integer 类型的强制转换无效.其中SubTime字段在表中的类型为smalldatetime

Answer 1

cmd.Parameters("@SubTime").Value = Now
这里错了吧,应当是
cmd.Parameters("@SubTime").Value = DateTime.Now  吧

Answer 2

cmd.Parameters.Add(New SqlParameter("@SubTime", SqlDbType.SmallDateTime, "SubTime"))
这句有问题吧,一个字符串值"SubTime" 怎么能转换成一个SqlDbType.SmallDateTime呢......