您确定dbSQLServerTestDataSet1.tblContact是一个类吗?它看起来更像是具有属性(tblContact)的实例(dbSQLServerTestDataSet1).

New需要一个类名，而不是一个实例.

Are you sure that dbSQLServerTestDataSet1.tblContact is a class? It looks a lot more like an instance (dbSQLServerTestDataSet1) with a property (tblContact).

New requires a class name, not an instance.

在名称空间中添加

Add in the namespace

Imports System.Data.SqlClient

然后使用以下代码:

then use following code:

Dim ds As dsTestCon

        Me.taTestCon.Fill(Me.DsTestCon.tblTest)
        MsgBox(DsTestCon.tblTest.Rows(0).Item(1))

        MsgBox(taTestCon.Connection.ConnectionString)


        Dim adapter As New dsTestConTableAdapters.tblTestTableAdapter
        Dim conn As New SqlConnection()
        Dim vrCompName As String = My.Computer.Name
        conn.ConnectionString = "Data Source=" & vrCompName & "\SQLEXPRESS;AttachDbFilename=e:\dbTest.mdf;Integrated Security=True;User Instance=True"
        adapter.Connection = conn
        Dim table As DataTable = adapter.GetData()
        MsgBox(adapter.Connection.ConnectionString)

        ds = New dsTestCon()
        adapter.Fill(ds.tblTest)

        MsgBox(ds.tblTest.Rows(0).Item(1))