dstProducts=new DataSet()    
      dim connect as OleDBConnection
      dim myConnString as String    
      myConnString=System.Configuration.ConfigurationSettings.AppSettings( "connect" )
      connect= New OleDbConnection(myConnString)
      dadProducts=New OleDBDataAdapter( "select * from users   " ,connect)
        dadProducts.Fill(dstProducts, "users" )
         Dim t As DataTable
         t = dstProducts.tables( "users" )
         Dim newRow As DataRow = t.NewRow()
    ' Set values in the columns:
         newRow("ID") = 0
         newRow("Country") = "Russia"
    ' Add the row to the rows collection.
         t.Rows.Add(newRow)
          cmd = New OleDBCommand( "insert into users (id,country) "   & _
           " values (?,?'') " , connect)
        cmd.connection=connect
        cmd.ExecuteNonQuery()
        connect.Close()