我按照下面代码运行，输入记录中没有的信息，在谈出的网页上出现恭喜字样，我以为成功了。结果打开数据库一看，根本没有添加进去。请您仔细看看，到底哪里错了
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ConnString As String
        Dim strSql As String
        Dim Conn As New OleDbConnection
        ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        ConnString += Server.MapPath("22.mdb")
        Conn.ConnectionString = ConnString
        Conn.Open()
        Dim cmd As New OleDbCommand
        Dim lngCount As Long
        strSql = " select * from mima where 学号='" & xuehao.Text & "'"
        cmd.Connection = Conn
        cmd.CommandText = strSql
        lngCount = cmd.ExecuteScalar()
        Try
            If lngCount = 0 Then

                strSql = " insert into mima values( '" & xuehao.Text & "','" & xingming.Text & "','" & mima.Text & "','" & dianhua.Text & "','" & youxiang.Text & "','" & dizhi.Text & " ') "

                cmd.Connection = Conn
                cmd.CommandText = strSql
                Response.Write("恭喜")
            Else
                Response.Write("对不起，你的用户名已经有人使用")
                Response.Write("请更换其它名称再进行注册。")
            End If
        Catch Err As Exception
            Response.Write(Err.Message)
        End Try

        cmd.Dispose()
        Conn.Close()
    End Sub

End Class