(In the General Declaration Area)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
(in Form's Activate Event)
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=EMP.mdb;Persist Security Info=False"
cn.Open
rs.Open "select Eid,Ename,ppfSub,Basic From EmpData Order By Eid", cn, adOpenStatic, adLockPessimistic
Text1.text=rs.Fields(0)
etc