See if these two changes do it for you.
VB Code:
Private Sub Form_Load()
[HL="#FFFF80"]MDIForm1.mnu2.Enabled = False[/HL]
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
For i = 1 To 3
MDIForm1.Toolbar1.Buttons(i).Enabled = True
Next i
End Sub
VB Code:
Private Sub cmdSave_Click()
If intprocess = 1 Then 'add
cn.Execute "Insert into tblinfo(fname,address)values('" & Me.txtName.Text & "','" & Me.txtAddress.Text & "')"
Else 'edit
cn.Execute "Update tblinfo set fname='" & Me.txtName.Text & "', addess ='" & Me.txtAddress.Text & "'"
MsgBox "Update Successfully"
End If
[HL="#FFFF80"]MDIForm1.mnu2.Enabled = True[/HL]
End Sub