Option Explicit Dim strConn As String Dim Conn As New ADODB.Connection Dim rstType As New ADODB.Recordset Dim rstBook As New ADODB.Recordset Dim sql As String Private Sub Command1_Click() rstType.MoveNext If rstType.EOF Then rstType.MoveLast End If End Sub Private Sub Form_Load() Dim i As Integer '使窗体居中显示 Me.Top = (Screen.Height - Me.Height) / 2 Me.Left = (Screen.Width - Me.Width) / 2 '打开数据库和type表 strConn = "Driver=@R_403_198@ ODBC 3.51 Driver;Server=localhost;DataBase=bookdb;User Id=root;Password=nan" Conn.Open strConn Conn.Execute ("SET NAMES 'gb2312'") sql = "select * from book" Set rstType = Conn.Execute(sql) Text1.Text = rstType.Fields("Bno") Text2.Text = rstType.Fields("Blei") Text3.Text = rstType.Fields("Bname") Text4.Text = rstType.Fields("Bauthor") Text5.Text = rstType.Fields("Bpress") Text6.Text = rstType.Fields("Bdan") Label1.Caption = rstType("Bname").Value '用控件label1控件显示字段aaa 'rstType.Close '关闭表 'Set rstType = Nothing '释放资源 'Conn.Close '关闭数据库 'Set Conn = Nothing '释放资源 End Sub 原文链接：https://www.f2er.com/vb/264429.html