How to execute a query?

[goobil]

Hi all,
I'am new to VBA i have done some stuff bit i cant figer this one out.
I wjust want to get e record from the employeetype table.
How do i execute a query?



Dim DB As Database
Dim bankRs As DAO.Recordset
Dim employeeRS, emptypeRS As DAO.Recordset
Dim xemployeetype As String

Set DB = CurrentDb


Set emptypeRS = DB.OpenRecordset("employeetype", dbOpenDynaset)
emptypeSQL = "Select * From employeetype where ID = '" & Me.employeetype & "' "
'Set emptypeRS = emptypeDB.OpenRecordset("select employeetypeID from employeetype where " & _
"[ID] = '" & Me.employeetype & "'", dbOpenDynaset)
Set emptypeRS = DB.OpenRecordset(emptypeSQL)

 

[adsfx]

docmd.runquery "queryname" ?
hope this helps

Mark