Ну блин!!!!
Написал:

Private Sub Form_Current()
Dim B As String, C As Date
C = Forms![Groups]![ID_Group]
B = "SELECT SUM(Sub_Group.Mest_Sub_Group * Types_Nomer.Mest_Type)" _
& " AS Vsego FROM dbo.Sub_Group INNER JOIN dbo.Types_Nomer ON" _
& " dbo.Sub_Group.Type_Sub_Group = dbo.Types_Nomer.ID_Type_Nomer" _
& " WHERE (dbo.Sub_Group.K_Group = '" & Format(C, "yyyymmdd hh:mm:ss") & "')"
Forms![Groups]![SP41].RowSource = B
Forms![Groups]![SP41].Requery
End Sub

Запускаю - работает:)
Через 2-3 раза - перестало:(
Закр-Откр форму - не работает:(((
Что за глюк?:(

Geen