OK I did that, now 23 erros popped up. The name of the file below is
Lowes3.aspx.vb
Lines 3, 5, 6, 7, 25-33, 40-46 (e.g.

Imports System.Data
Imports System.Data.OleDb
Public Class Lowes3.aspx Inherits System.Web.UI.Page       <End of
statement expected
   Private Sub Page_Load(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles MyBase.Load          <event
'Load' cannot be found
       If IsPostBack Then
Dim cnn As OleDbConnection("data Source=(local);" & _       <array
bounds cannot appear in type specifiers
"Initial Catalog=Lowes;" & _
"Integrated Security=SSPI")
           Dim cnn As OleDbConnection
           Dim ds As DataSet = New DataSet()
           Dim da As OleDbDataAdapter = _
           New OleDbDataAdapter()
           Dim cmdSelect As OleDbCommand = _
           cnn.CreateCommand()
           cmdSelect.CommandType = CommandType.Text
           cmdSelect.CommandText = _
   "SELECT Asset_Number, Description, Serial_Number, Mfg, RDCnumber,
AssetType FROM Assets"
           Dim cmdInsert As OleDbCommand = _
           cnn.CreateCommand()
           cmdInsert.CommandType = CommandType.Text
           cmdInsert.CommandText = _
           "INSERT INTO Customers " & _
           "(Asset_Number, Description, Serial_Number, Mfg,
RDCnumber, AssetType) "
"VALUES(@Asset_Number, @Description, @Serial_Number, @Mfg, @RDCnumber,
@AssetType)"   <sysntaz error
cmdInsert.Parameters.Add(@Asset_Number" , OleDbType. 10,"
Asset_Number")                                  <    '@' not valid
cmdInsert.Parameters.Add(@Description" , OleDbType.VarChar, 40,"
Description")                         <    '@' not valid
cmdInsert.Parameters.Add(@Serial_Number" , OleDbType.VarChar, 30,"
Serial_Number")             <    '@' not valid
cmdInsert.Parameters.Add(@Mfg" , _OleDbType.VarChar, _30,"
Mfg")                                          <    '@' not valid
cmdInsert.Parameters.Add(@RDCnumber" , OleDbType.VarChar, 30,"
RDCnumber")                       <    '@' not valid
cmdInsert.Parameters.Add(@AssetType" , OleDbType.VarChar, 30,"
AssetType")                          <    '@' not valid
cmdInsert.Parameters(@Asset_Number").
_                                                < Property access
must assign to the property or use its value
           SourceVersion =
_                                                              < Name
'Source Version' is not declared
           DataRowVersion.Original
           da.SelectCommand = cmdSelect
           da.InsertCommand = cmdInsert
           da.Fill(ds, "Assets")
           Dim dr As DataRow = ds.Tables( _
           "Assets").NewRow()
           dr(0) =
txtAsset_Number.Text                                <
txtAsset_Number - not declared
           dr(1) =
txtDescription.Text
ditto
           dr(2) =
txtSerial_Number.Text
ditto
           dr(3) =
txtMfg.Text
ditto
           dr(4) =
txtRDCnumber.Text
ditto
           dr(5) =
txtAssetType.Text
ditto
Ds.Tables("Assets".Rows.Add.(dr)                          < Property
access must assign to the property or use its value
           da.Update(ds, "Assets")
       End If
   End Sub
End Class