:大数据实习报告

　　str = "select 用户名 from 管-理-员用户表"

　　Adodc1.RecordSource = str Adodc1.Refresh

　　If Adodc1.Recordset.BOF = False Then pcount =

　　Adodc1.Recordset.RecordCount End If

　　For i = 1 To pcount If

　　Trim(Adodc1.Recordset.Fields("用户名")) = Trim(Text1.Text) Then MsgBox "警告，该用户名已被注册！"

　　Text1.SetFocus

　　Exit For

　　End If

　　Adodc1.Recordset.MoveNext Next i