Dim sql As String
  On Error GoTo err
 If n <> 0 Then
  DataGrid1.Visible = True
  DataGrid1.Enabled = True
   Adodc1.Recordset.AddNew
 sql = "INSERT INTO 用户管理 VALUES('" & Trim(Text1.Text) & "', '" & Trim(Text2.Text) & "' ,'" & Trim(Text3.Text) & "')"
 Set rs = dbselect(sql)
  Adodc1.Refresh
   MsgBox "添加成功！"
    Exit Sub
Else
  MsgBox "你不是管理员!", , "警告"
End If
err:
  MsgBox err.Description
End Sub

插入空记录？表中只有三条记录，其余的为空记录，。为什么？

到底有几条记录……

本来有五条，但只显示3条，还有一个怪现象是datagrid的左上角的字段值为空，有记录，就是不显示。