Public conn As New ADODB.Connection Public rs1 As New ADODB.Recordset Private Sub Command1_Click() cnstr = Provider=SQLOLEDB;Data Source=数据库服务器名;DATABASE=数据库;UID=数据库用户名;pwd=密码 conn.Open cnstr
If & Text1.Text& Then
sql = select * from wuser where username=' & Text1.Text & '