为了方便起见，我选用的数据库为Access   
在这个界面上我所写的代码是：Public Class frmLoginUpdate   '注册窗体
    Dim mydb As DB = New DB    '将类DB实例化 ,DB是一个已经建立好的模块
    Dim ds As New DataSet       '建立一个数据集
    Dim adp As OleDb.OleDbDataAdapter '建立一个数据适配器


    Private Sub InsertI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertI.Click
        '注册用户名，密码
        Try
            Dim strins As String = "insert into Tuser (userName,password)values('" & txtUserName.Text.Trim & "','" & txtPassword.Text.Trim & "')"
           ' adp = New OleDb.OleDbDataAdapter(strins, DB.connstr)
            mydb.exeUpdate(strins)                     
            ds.Clear()
            adp.Fill(ds, "Tuser")    'Tuser为用户表：里面有userName 和password两个字段
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Sub

 DB模块里的内容是没有错的，错的只是mydb.exeUpdate(strins),像我的这种情况，应用类怎么实现用户注册功能？

[ 本帖最后由 不耻下问_001 于 2010-11-5 13:03 编辑 ]

从你贴的图上看，意思很清楚呀，SQL语句的语法错误了
Dim strins As String = "insert into Tuser (userName,password)values('" & txtUserName.Text.Trim & "','" & txtPassword.Text.Trim & "')"
换成下面的试试
Dim strins As String = "insert into Tuser(userName,password) values('" & txtUserName.Text.Trim & "','" & txtPassword.Text.Trim & "')"

 现在实现的功能是：我所用的是一个DB类，其中类中实现非select语句的方法是： Public Sub exeUpdate(ByVal sqlStr As String)
        DBOpen()
        Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, conn)
        cmd.ExecuteNonQuery()
        DBClose()
    End Sub

  在“注册”按钮，我所输入的代码是：
Try
            Dim tt As String
            If txtUserName.Text = "" Or txtPassword.Text = "" Then
                MessageBox.Show("输入框不能为空", "提示")
            Else
                Dim sql1 As String = "select count(*) from Tuser where userName='" & txtUserName.Text.Trim & "' and password='" & txtPassword.Text.Trim & "'"
                If mydb.exeSell(sql1) <> 0 Then
                    MessageBox.Show("用户已经存在，不能再进行注册")
                    txtUserName.Text = ""
                    txtPassword.Text = ""
                    txtUserName.Focus()
                Else
                    tt = "insert into Tuser (userName,password) values ('" & txtUserName.Text.Trim & "','" & txtPassword.Text.Trim & "') where 1=1"
                    mydb.exeUpdate(tt)
                    MessageBox.Show("用户已注册")
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
  但是执行结果却，不是我想要的。上面所提示的：DB中的错误行是; cmd.ExecuteNonQuery()
      frmLoginInsert 中的22 行 是：  mydb.exeUpdate(tt)

  到底怎么改，才能顺利地进行注册？如果哪位有什么更好的想法可以给我留言

楼主的截图还是提示Insert Into 语法错误啊
将下面语句复制替换一下你的代码试试
tt = "insert into Tuser([userName],[password]) values('" & txtUserName.Text.Trim & "','" & txtPassword.Text.Trim & "') where 1=1"
还有，userName,password两个字段是CHAR类型吧

有几天没来了,非常感谢不说也罢的回答.我的解决办法是,直接在tt语句里去掉两个字段,运行oK