VB+SQL2000,用户“sa”登入失败求救。


Private Sub Form_Load()
Call WHScreen
'使用代码连接数据库与数据表
   Adodc1.ConnectionString = PublicStr
   Adodc1.RecordSource = "select * from tb_user"
   Adodc1.Refresh   If Adodc1.Recordset.RecordCount > 0 Then
     ListView1.Enabled = True
     ListView1.ListItems.Clear
     Adodc1.Recordset.MoveFirst
     Do While Adodc1.Recordset.EOF = False                   '将操作员信息添加到ListView控件当中
        Key = Adodc1.Recordset.Fields("user_name")
        Set itmX = ListView1.ListItems.Add(, , Key, 1)
        Adodc1.Recordset.MoveNext
     Loop
   Else
      ListView1.Enabled = False
   End If
ScreenCenter
  If TWidth <= 800 Or THeigth <= 600 Then
     Exit Sub
  Else
      ChangeScreen       '调整屏幕分辨率
      ScreenCenter
  End If
 
End Sub