PuBlic cn As New ADODB,Connectionsub main()Dim strcn As Stringstrcn="Provider=Microsoft.jet.OLEDB.40;Data Source="+App.Path_+"\HRM.mdb;Persist Security Info=False"cn.Open[1]___strcn_____frmMain.ShowEnd SubPrivate Sub Myrefresh()Dim rs As[2]_______adodb.recordset__________________________Dim strtmp As String...