用VB编个程序,连接ACCESS数据库的,是有关于帐户管理的

这个没法弄图吖.

具体做法是.
先在工程-部件里添加 MICROSOFT OLEDB..然后把它弄到你的窗口里就可以了吖.

你不会还要问怎么写SQL吧?

用一个datagrid控件
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private rsmc As ADODB.Recordset

Private Sub cmduseradd_Click() '添加
Form3.Show
End Sub

Private Sub cmduserchange_Click() '修改教师用户信息
On Error GoTo ErrMsg
If cmduserchange.Caption = "修改" Then
username.Enabled = True
username.SetFocus
cmduserchange.Caption = "确认修改"
Else
Dim txtSQL As String
txtSQL = "select * from 教师 where user='" & Trim(username.Text) & "'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open txtSQL, conn, 2, 2
If rs.EOF = False Then
i = MsgBox("用户名已经存在！是否继续？", vbYesNo + vbExclamation, "警告")
If i = vbYes Then
rsmc.Fields(0) = Trim(username.Text)
rsmc.Fields(1) = Trim(pas