Private Sub cmdAddNew_Click()

Dim rstAction As ADODB.Recordset

' Establish a connection
Set cnSQLConnection = New ADODB.Connection
With cnSQLConnection
.Provider = "SQLOLEDB"
.ConnectionString = "Data Source=ompsv17;User ID=sa;Initial Catalog=MeetingReg"
.Open

' Open a recordset
SQLstr = "SELECT * FROM Action"
Set rstAction = New ADODB.Recordset
rstAction.Open "Select Assignee, MeetingName, TargetDate, TaskDescription, CompleteDate, PerformanceRating, MeetingDate, ModDate, AssignedBy," & _
"TaskName from Action", cnSQLConnection, _
adOpenKeyset, adLockOptimistic, adCmdTable

rstAction.AddNew
rstAction!Assignee = cboAssignee
rstAction!MeetingName = cboMeetingName
rstAction!TaskName = cboTaskName
rstAction!TaskDescription = TaskDescription
rstAction!TargetDate = Date
rstAction!CompleteDate = Date
rstAction!PerformanceRating = ""
rstAction!MeetingDate = Date
rstAction!ModDate = Date
rstAction!AssignedBy = AssignedBy
rstAction.Update
rstAction.MoveLast
End With

End Sub


*****If I run this 'as is' I get Run-time error'-2147217900(80040e14)' Incorrect Syntax near the keyword 'Select'.

*****If I take off the 'adCmdTable' property, nothing happens. I can run my program and see all of my data, but when I click on 'ADD' - nothing happens(no error, no new record, nothing).

??????????