Private Sub rentroom_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
     SqlDataAdapter1. = "select 房号,类型,房价 from 房间表 where 状态 = '空闲'"
     SqlDataAdapter1.Fill(Ds21, "房间表")
     Me.BindingContext(Ds21, "客人信息表").AddNew()
       　　Catch ex As Exception
        　　MsgBox(ex.Message)
        End Try
 End Sub
运行程序后，提示　　｛第１行：‘　　’附近有语法错误｝
这是为什么啊

在线等。急

上传实例来看看