楼主式式把button的click的代码改成下面的成不成 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim jidian As String jidian = (TextBox3.Text - "50" / "10") Dim strconn As String = "provider=Microsoft.jet.oledb.4.0;Data Source = students.mdb" Dim objconn As New OleDbConnection(strconn) Dim insertsql As String insertsql = "insert into " + ComboBox1.Text + "(姓名,学号,分数,绩点) values(" + "@" + TextBox1.Text + "," + "2" + TextBox2.Text + "," + "2" + TextBox3.Text + "," + "@" + jidian + ")" Dim objcmd As New OleDbCommand(insertsql, objconn) objconn.Open() objcmd.ExecuteNonQuery() objconn.Close() MsgBox("导入成功", , "恭喜") End Sub