程序

Public Function Getconnstr() As String
Getconnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\管理信息系统2\db1.mdb;Persist Security Info=False"
End Function
'打开数据库，成功返回ture，错误返回false
Public Function openconn(conn As ADODB.Connection) As Boolean
Set conn = New ADODB.Connection
On Error GoTo errorhandle
conn.Open Getconnstr
openconn = True
Exit Function
errorhandle:
MsgBox "连接数据库失败！请重新连接"
openconn = False
Exit Function
End FunctionPublic Function SelectSQL(ByVal SQL As String, ByRef msg As String) As ADODB.Recordset   '定义一个函数
Dim conn As ADODB.Connection  '创建一个新的数据库连接
Dim rst As ADODB.Recordset    '创建一个新的数据库记录
Dim stoken() As String        '定义一个字符串的动态数组
On Error GoTo errorhandle     '出错处理
stoken() = Split(SQL)         'split函数返回一个下标从0开始的数组
If InStr("SELECT", UCase((stoken(0)))) Then          ' UCase函数是将stoken(0)的字符变成大写，instr函数是指定一定字符串在另一字符串中出现的位置
  If openconn(conn) Then                             '打开数据库
  Set rst = New ADODB.Recordset                      '实例化记录集
  rst.CursorLocation = adUseClient                   '数据库记录的是使用服务器端游标
  rst.Open Trim$(SQL), conn, adOpenDynamic, adLockBatchOptimistic  '打开记录集，要求打开一个连接
  Set SelectSQL = rst                                '返回函数值，上面的新记录集
  msg = "查询到：" & rst.RecordCount & "条记录"
  End If
Else
msg = "SQL语句有误" & SQL
End If
Finally_exit:
Set rst = Nothing
Set conn = Nothing
Exit Function
errorhandle:                                        '出错处理
msgstring = "查询错误：" & Err.Description
Resume Finally_exit
End Function
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim SQL As String
Dim msg As String
SQL = "select * from 部门信息表"
Set rs = SelectSQL(SQL, msg)
SQL = "select * from 部门信息表"
Set rs = SelectSQL(SQL, msg)
rs.AddNew
rs.Fields("部门代码") = Text1.Text
rs.Update
End Sub
为什么我往数据库添加记录添不进去