สอบถามข้อมูลการเชื่อมฐานข้อมูลเกี่ยวกับ Sql server

Dim conn As New SqlConnection("Server1)
        Dim sql As String
        Dim i As Integer = 0
        Dim dssale As New DataTable
        Dim cmd As SqlCommand

        Try
            If (conn.State = ConnectionState.Closed) Then
                conn.Open()
            End If

            sql = "Select SALESID,EXPORTINVOICEID,BUNDLENO,NAME,SALESQUOTEDQTY,NETWEIGHT from TGP_DEV_MillTestCer where EXPORTINVOICEID Like '%" & txtinno.Text & "%'"
            'Dim sqlCommand As String = sql
            cmd = New SqlCommand(sql, conn)

            Dim dataAdapter As SqlDataAdapter = New SqlDataAdapter(cmd)
            dataAdapter.Fill(dssale)


            Try
                Dim conn2 As New SqlConnection("Serve2)

                If (conn2.State = ConnectionState.Closed) Then
                    conn2.Open()
                End If

                For i = 0 To dssale.Rows.Count


                    If i < dssale.Rows.Count - 1 Then


                        cmd.CommandText = "insert into tblmilltestcertificate (inno_deliver, snno_deliver, packagenum, spac_od, numberpcs, numberkg)
                        VALUES('EXPORTINVOICEID','SALESID','BUNDLENO','NAME','SALESQUOTEDQTY','NETWEIGHT')"
                        cmd.CommandType = CommandType.Text
                        cmd.Connection = conn2
                        cmd.ExecuteNonQuery()

                        i = i + 1

                    End If
                Next

            Catch ex As Exception

            End Try

        Catch ex As Exception
            MsgBox(ex.ToString)
            GetHeadline = Nothing

 cmd.CommandText = "insert into tblmilltestcertificate (inno_deliver, snno_deliver, packagenum, spac_od, numberpcs, numberkg)
                        VALUES('EXPORTINVOICEID','SALESID','BUNDLENO','NAME','SALESQUOTEDQTY','NETWEIGHT')"