代码如下:
Dim DS As DataSet
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlDataAdapter        MyConnection = New SqlConnection"server=;uid=;pwd=;database=;")
        MyCommand = New SqlDataAdapter("select * from tablename", MyConnection)此处将server,uid,database处改为你的名称即可!

解决方案 »

  1.   

    对不起,一不小心多贴了一行!
    当然,一般打开数据库肯定要用DataSet,如下:
    DS = New DataSet()
            MyCommand.Fill(DS, "Titles")        MyRepeater.DataSource = DS.Tables("Titles").DefaultView
            MyRepeater.DataBind()
      

  2.   

    ConnStr = New SqlConnection("server=" & servername & ";database=" & dbname & ";uid=" & uid & ";pwd=" & pwd & ";")
      

  3.   

    若只是测试连接,以下代码足矣:
        Dim strConn As String
        Dim adoConn As SqlConnection    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here        adoConn=New SqlConnection("server=Jwang\Jwang;uid=sa;pwd=;database=Northwind")         Try
                adoConn.Open()
                Label1.Text = "连接成功"
            Catch
                Label1.Text = "连接失败"
            Finally
                adoConn.Close()
                adoConn=Nothing        End Try    End Sub