Help with deleting an MSAccess file in VB6.0

[Alfarata]

I have been searching trying to figure out the syntax for this but it escapes me.
I am adding records saving and retrieving no proble but how do I delete a record.
So far all I have seen in the Database using msAccess is the record marked #DELETED but is not really deleted. Here is my code.
I could really use some help with this
Thanks

 Private Sub cmdDelete_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdDelete.Click

        Dim rs As New ADODB.Recordset

        If MsgBox("Are you sure that you want to Deletet Record?", vbYesNo) = vbYes Then
            rs.Open("DELETE FROM SDID1OrderDetail where OrderNumber = '" & cbstrCurrOrderNumber & "' and OrderLine = " & SDLI, strConn, 2, 2)
            MsgBox("The Quote record has been deleted.")
            'rs.Update()
            rs = Nothing

            HoldHighestSDLI = HoldHighestSDLI - 1
            HighestSDLI = HighestSDLI - 1
            If SDLI > 1 Then
                SDLI = SDLI - 1
            End If
            ScreenUpDate()
            txtDoorA.Text = SDLI
            txtBaseDoorInfo.Text = "DOOR " & SDLI & " Base:"
            txtBaseDoorInfo2.Text = "DOOR " & SDLI & " Base:"
        Else
            Exit Sub
        End If
    End Sub

[Siddharth Rout]

Are you sure you are using vb6?

The code looks like it is for vb.net (from the click event)

[GaryMazzone]

Why are you opening a recordset to run a delete query? You are not returning records to the app so you should not be doing that. You write the SQL statement then execute it on the Connection/Command object combination.

[Alfarata]

Sorry this was a vb6.0 app upgraded to net. I do not want to change the way the DB connections are made and such. So I want to stay with the formats I know a little better.

[Siddharth Rout]

Sorry this was a vb6.0 app upgraded to net. I do not want to change the way the DB connections are made and such. So I want to stay with the formats I know a little better.

Try something like this... I typed this in notepad so please amend syntax errors if any...

Try
    oConnOleDb = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database1.mdb")
    oConnOleDb.Open()
    oCmdOleDb = New OleDbCommand("Delete from SDID1OrderDetail blah blah query",oConnOleDb)


    If (oCmdOleDb.ExecuteNonQuery > 0) Then
        MsgBox ("The Quote record has been deleted.")
    End If
Catch ex As Exception
    MsgBox(ex.Message.ToString(), MsgBoxStyle.Information)

Finally
    oConnOleDb.Close()
End Try

[Alfarata]

I keep seeing the references to why are you opening and to use and SQL statement, I guess I can't get the syntax correct I have tried many variations from the searchs but nothing is workig for me.

[Hack]

Sorry this was a vb6.0 app upgraded to net.

Then don't use VB6 any more...use .NET

Don't use ADO any more...use ADO.NET

You are NEVER going to get comfortable in a .NET world if you insist upon walking using VB6 crutches.

Moved to VB.NET

I'll get you started. Here is how you would connect to your Access Database

Imports System.Data.OleDb
 
Public Class Form1
 
    Private connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\database.mdb;"
    Private conn As OleDb.OleDbConnection
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New OleDbConnection(connstring)
        conn.Open()
End Sub

[vpm_sampath]

hai,

Try this
UrConnection. Execute(" Delete * from urTable Where urConditions")