vb ado.net

[lifuhe_0606]

Imports System.Data
Imports System.Data.SqlClient
Public Class DatasetExample
    Dim objConnection As New SqlConnection("server=IDEA-PC;database=pubs;user id=sa;password=SQL2014wrox")
    Dim objDataAdapter As New SqlDataAdapter()
    Dim objDataset As New DataSet()

    Private Sub DatasetExample_Load(sender As Object, e As EventArgs) Handles Me.Load
        objDataAdapter.SelectCommand = New SqlCommand()
        objDataAdapter.SelectCommand.Connection = objConnection
        objDataAdapter.SelectCommand.CommandText =
            "SELECT au_lname,au_fname,title,price" &
            "FROM authors" &
            "JOIN titleauthor ON authors.au_id=titleauthor.au_id" &
            "JOIN titles ON titleauthor.title_id=titles.title_id" &
            "ORDER BY au_lname,au_fname"
        objDataAdapter.SelectCommand.CommandType = CommandType.Text
        objConnection.Open()
        objDataAdapter.Fill(objDataset, "authors")
        objConnection.Close()
        grdAuthorTitles.AutoGenerateColumns = True
        grdAuthorTitles.DataSource = objDataset
        grdAuthorTitles.DataMember = "authors"
        objDataAdapter = Nothing
        objConnection = Nothing
    End Sub
End Class

运行以上代码时objDataAdapter.Fill(objDataset, "authors")
填充的地方报错，数据库在本地电脑上。求大神解答