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
-------------------------------------------