Sql 远程数据源

原来我是这样写的,打开窗口没有问题

  DataTables("产品维护").LoadFilter = "[_Identify] Is Null"

  DataTables("产品维护").LoadAsync()

DataTables("产品维护").LoadFilter = "[_Identify] Is Null"

  DataTables("产品维护").LoadAsync()

  DataTables("产品维护").LoadFilter = "[_Identify] Is Null"

        DataTables("产品维护").LoadAsync()

        Dim dr As DataRow

        CType(e.Form.Controls("RecordGrid1").BaseControl, C1.Win.C1FlexGrid.C1FlexGrid).Styles.EmptyArea.BackColor = Drawing.Color.WhiteSmoke

        Dim ctl As WinForm.CheckedComboBox = e.Form.Controls("列表")

        ctl.Value = "类型,条码,元器件名称"

        Dim cmd As New SQLCommand

        Dim dt As DataTable

        cmd.C

        cmd.CommandText = "SELECT * From{产品维护}"

        dt = cmd.ExecuteReader()

        For Each cl As DataCol In dt.DataCols

            Select Case cl.Name

                Case "类型", "条码", "元器件名称", "型号", "封装", "供应商编号", "供应商名称"

                    ctl.Items.Add(cl.Name)

            End Select

        Next

        For Each c As WinForm.Control In Forms(FrmName).Controls

            If TypeOf c Is WinForm.Button Then \'判断控件是否是文本框

                Dim t As WinForm.Button = c \'使用特定类型的变量引用控件

                t.FlatStyle = FlatStyle.Standard

                dr = DataTables("系统设置表").SQLFind("类型=\'按钮风格\' And 用户ID=\'" & Vars("_UserID") & "\'")

                If dr IsNot Nothing Then

                    t.VisualStyle = CInt(dr("系统值"))

                Else

                    t.VisualStyle = 4

                End If

            End If

        Next

        MsgBox(4)

        Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

        Dim ftp As New FTPClient

        dr = DataTables("系统设置表").SQLFind("用户ID=\'远程文件服务器设置\' And 类型=\'服务器地址\'")

        If dr IsNot Nothing Then

            ftp.Host = dr("系统值")

        End If

        dr = DataTables("系统设置表").SQLFind("用户ID=\'远程文件服务器设置\' And 类型=\'用户名\'")

        If dr IsNot Nothing Then

            ftp.Account = dr("系统值")

        End If

        dr = DataTables("系统设置表").SQLFind("用户ID=\'远程文件服务器设置\' And 类型=\'密码\'")

        If dr IsNot Nothing Then

            ftp.Password = dr("系统值")

        End If

        dr = DataTables("系统设置表").SQLFind("用户ID=\'远程文件服务器设置\' And 类型=\'端口\'")

        If dr IsNot Nothing Then

            ftp.Port = dr("系统值")

        End If

        ftp.ChangeDir("\\产品图片")

        piv.FTPClient = ftp

DataTables("产品维护").LoadFilter = "[_Identify] Is Null"

        DataTables("产品维护").LoadAsync()