Dim Join As String = "User ID=你SQL的用户名(一般为sa);Password=你SQL的密码;Initial Catalog=你SQL的数据库名称;Data Source=连接数据库的IP,端口"
Dim Sql As String = "select * from 表 "
Dim conn As New SqlClient.SqlConnection(Join)
conn.Open()
Dim cmd As New SqlClient.SqlCommand(Sql, conn)
Dim rs As SqlClient.SqlDataReader = cmd.ExecuteReader
While rs.Read
'读取数据 trim(rs("字段"))
End While
cmd.Dispose()
conn.Close()