ขอโค้ด VB6 เชื่อมต่อกับ MS Access หน่อยคับ พอดีหามาหลายที่แล้วคับแต่ไม่เจอเลยคับ

Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Set objRec = New ADODB.Recordset

strSQL = "SELECT * FROM.... "
Conn.ConnectionString = strConnectionString
Conn.Open


objRec.Open strSQL, Conn, 1, 3

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection

Conn.ConnectionString = strConnectionString
Conn.Open

strSQL = "INSERT INTO...."
Conn.Execute (strSQL)

If Err.Number <> 0 Then
Exit Function
End If

Conn.Close