把一个本地数据库表chinese上传到另外一个数据库的一个新表中

Public Function sql_input(ByVal my_sql As String) As Boolean
    If m_root_mode = "win" Then 
Dim msql_y As New SqlConnection(msqconstring)
msql_y.Open()
Dim msql_my As DataSet
Dim msql_me As DataSet
Dim ds As DataSet
Dim i As Integer，b As Integer
b="select count(*) from chinese"
For i=0 to b 'ds.recordcount 
msql_my="select wb from chinese where wb='" + msql_my+ "'"
msql_me="insert china (cn,qp,wb) select cn,qp,wb from chinese where wb='" + msql_my+ "'"
Next
msql_y.Close()
Return True
    Else 
Return False   
    End If
End Function 

新手 第一天学VB  先感谢大家了 数据库

补充：VB ,  基础类