The 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. The Open ()
Dim msql_my As the DataSet
Dim msql_me As the DataSet
Dim ds As the DataSet
Dim I As an 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
The Else
Return False
End the If
End the Function

Thank you for your first novice learning VB on the first day