Convert VB 6 code to VB.NET Code [resolved]

[craigreilly]

How do I convert this to VB.NET. Everything I have seen so far needs to create DataAdapters and DataSets.
Please help. Thanks.
==================================
Dim db As Database
Dim dblocation As String
dblocation = App.Path & "\mtb.mdb"
Set db = OpenDatabase(dblocation)
Set rsjobs = db.OpenRecordset("jobs", dbOpenTable)

rsjobs.AddNew
rsjobs("jobid") = jobid.text
rsjobs("job name") = jobname.text
citylen = Len(Text2)
rsjobs.update

rsjobs.close
db.close

[Memnoch1207]

A simple example of how you can do this in .NET

Imports System.Data.OleDb
 
Dim Conn As New OleDbConnection(Server.MapPath("mtb.mdb"))
Dim strSql As String = "INSERT INTO jobs VALUES('" & Trim$(jobid.Text) & "', '" & Trim$(jobname.Text) & "')"
Dim Cmd As New OleDbCommand(strSql, Conn)
 
Try
   Conn.Open()
   Cmd.ExecuteNonQuery()   
Catch ex As Exception
   'Catch the error
Finally
   'Close the Conn object
   Conn.Close
End Try

[craigreilly]

This code produced errors on:

Imports System.Data.OleDb
Dim Conn As New OleDbConnection(Server.MapPath("mtb.mdb"))
Dim strSql As String = "INSERT INTO jobs VALUES('" &   _     Trim$(jobid.Text) & "', '" & Trim$(jobname.Text) & "')"
Dim Cmd As New OleDbCommand(strSql, Conn)

All 4 lines of code had errors...

[Memnoch1207]

My mistake, the Dim Conn line should have been like this

Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\jobs.mdb;User Id=;Password=;")

I tested it and it worked fine, none of the other lines caused an error.

[craigreilly]

For the most part - this is what I was looking for... and it works.

    Dim sconn As String
    Dim objconn As OleDb.OleDbConnection
    Dim oconn
    Dim sAppPath As String


    sAppPath = IO.Path.Combine(Application.StartupPath, "mtb.mdb")

    sconn = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & sAppPath & "; user id=admin; password="



    objconn = New OleDb.OleDbConnection(sconn)
    objconn.Open()

    Dim objcommand As OleDb.OleDbCommand
    Dim objrs As OleDb.OleDbDataReader

    objcommand = objconn.CreateCommand

           objcommand.CommandText = "SELECT jobs.theid, jobs.jobname, jobs.location, jobs.state, jobs.jobmanager, jobs.status, users.username, users.[full name] FROM jobs,users where jobs.jobmanager=users.theid"
       

    objrs = objcommand.ExecuteReader()

    While objrs.Read
    end while