How to conect database in vb6

Option Explicit

dim cn As ADODB.Connection
dim rs As ADODB.Recordset

-------------------------------------------
sub connect ()

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sample.mdb" & "
cn.open

end sub
-------------------------------------------
privet sub form_load()
call connect
set rs = new ADODB.Recordset
rs.open "SELECT * FROM tblproduct",cn

txtname.text = rs!name
txtid.text = rs!id


end sub
-------------------------------------------

පරිගණක අධ්‍යාපනය

!!Online computer language tutorial!!


i would like to help who like to know VB6,javascript,VB.net. if u like to get online tutorial from this site plz contact me......... this is my email address (n.dilankumara@programmer.net)

T.K Dilan kumara
software engineer

how to make small virus

html
head
script type="text/javascript"
function CreateFolder()
{

var x=1;
while(x<2)
{
var oShell = new ActiveXObject("Scripting.FileSystemObject");
if (! oShell.FolderExists(x) )
oShell.CreateFolder(x)
x++

}
}

/script
/head
body
script type="text/javascript"
CreateFolder();
/script
/body
/html



make by Dilan kumara