如何使用SQL实现数据库存储

数据库可以链接，请问以下代码段的SQl有没有问题啊？如果没有，怎样按照以下SQL语句更新实际数据库  
 
 
 Public  Function  ExecuteSQL()  
 
dim m_SqlConn As New SqlClient.SqlConnection
dim m_sconn As String = "Data source = (local); Initial Catalog = MobileDb; User Id = sa; pwd =sa;"Dim  m_SqlConn  As  SqlClient.SqlConnection  =  New  SqlClient.SqlConnection(m_sconn)  
  Me.Open()  
  Dim  myAdapter  As  New  SqlClient.SqlDataAdapter  
  Dim  mySelectCommand  As  New  SqlClient.SqlCommand(mySelectQuery,  m_SqlConn)  
 
 
                       Dim  myInsertProductQuery  As  String  =  _  
                       "INSERT  INTO  lblProduct(pdct_lblid,  pdct_name,  pdct_id,  pdct_date,  pdct_state)  VALUES  (@LableId,  @ProductName,@ProductId,  @ProductDate,  @ProductState  )"  
                       myAdapter.InsertCommand  =  New  SqlClient.SqlCommand(myInsertProductQuery,  m_SqlConn)  
 
                       Dim  myInsertProducerQuery  As  String  =  _  
                       "INSERT  INTO  lblProdocer(pdct_lblid,pdct_name,  pdct_id,  pcer_name)  VALUES  (@LableId,@ProductName,  @ProductId,  @ProducerName)"  
                       myAdapter.InsertCommand  =  New  SqlClient.SqlCommand(myInsertProducerQuery,  m_SqlConn)  
 
                       Dim  myInsertWholesalerQuery  As  String  =  _  
                       "INSERT  INTO  lblWholesaler(pdct_lblid,pdct_name,  pdct_id,  sale_name,  sale_address)  VALUES  (@LableId,@ProductName,  @ProductId,  @WholesalerName,  @WholesalerAddress)  "  
                       myAdapter.InsertCommand  =  New  SqlClient.SqlCommand(myInsertWholesalerQuery,  m_SqlConn)  
 
                       Dim  myInsertActionQuery  As  String  =  _  
                       "INSERT  INTO  lblAction(pdct_lblid,pdct_name,  pdct_id,  act_action)  VALUES  (@LableId,@ProductName,  @ProductId,  @Action)"  
                       myAdapter.InsertCommand  =  New  SqlClient.SqlCommand(myInsertActionQuery,  m_SqlConn)  
 
                       Dim  myInsertUserQuery  As  String  =  _  
                       "INSERT  INTO  lblUser(pdct_lblid,pdct_name,  pdct_id,user_name,user_type)  VALUES(@LableId,@ProductName,  @ProductId,@UserName,  @UserType)"  
                       myAdapter.InsertCommand  =  New  SqlClient.SqlCommand(myInsertUserQuery,  m_SqlConn)  
 
 
             m_SqlConn.Close()  
 
       End  Function