Non riesco a chiamare un altro form con codici field analoghi su base dataenvironmnet, il codice qui di seguito mi da errore

Private Sub CmdMEComponenti_Click()

Load frmSINGLE

DE.rsGOsingoli.Open "select * from GOsingoli Where CDCOMA = " '& TxtMECDCOMA & '""
DE.rsGOsingoli.Properties.Refresh
frmSINGLE.Show
End Sub

Ho cercato di sostituire "Open" con Execute ma non è presente nel mio progetto, avete qualche suggerrimento?