使用VB连接SQLserver数据库将数据显示在窗体

1.在窗体中添加部件

        （1）添加DataGrid部件数据显示为表格

        （1）添加ListBox部件数据显示为文本

2.代码

Private Sub Form_Load()
    Dim conn As New ADODB.connection
    conn.connectionString = "Provider=SQLOLEDB;Data Source=IP地址,端口号;Initial Catalog=数据库;User ID=用户名;Password=密码;"
    conn.Open
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT * FROM 表名", conn, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    Do While Not rs.EOF
        List1.AddItem rs.Fields("字段名").Value
        List1.AddItem rs.Fields("字段名").Value
        ...
        rs.MoveNext
    Loop
    '不要关闭连接，关闭连接DataGrid1不显示
End Sub