Rất dễ dàng như...ăn tôm càng!
dùng thuộc tính Listindex (chỉ mục của mục chọn trong Listbox-bắt đầu từ mục chọn số 1 có chỉ mục=0)
Private Sub DM_DblClick(Cancel As Integer)
Dim f As String
Select Case Me.DM.ListIndex
Case 0
f = "frm1"
Case 1
f = "frm2"
Case 2
f = "frm3"
End Select
DoCmd.OpenForm f, acNormal
End Sub