Får följande fel i en rad: Run-time error '-214721717913(80040e07)': "Typblandnings Fel i Villkorsuttryck"

Raden ser ut så här:
RS.Open "SELECT * FROM TBL_Projekt WHERE Proj_Nr=" & CurrentProjekt & "", Dcon

Raden är en del av en funktion:

Public Function Flex()
Dim DBFileName As String
Dim Dcon As ADODB.Connection
Dim RS As ADODB.Recordset
Dim A As Integer

DBFileName = App.Path & "\Dagbok.mdb"

Set Dcon = New ADODB.Connection
Set RS = New ADODB.Recordset

Dcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & DBFileName

RS.Open "SELECT * FROM TBL_Projekt WHERE Proj_Nr=" & CurrentProjekt & "", Dcon
Dim R As Integer
Dim C As Integer

Do Until RS.EOF
R = R + 1
frmProjekt.MSFlexGrid1.Rows = R + 1
C = 0
On Error Resume Next
'1
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Nr").Value
C = C + 1
'2
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Personal").Value
C = C + 1
'3
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Utrustning").Value
C = C + 1
'4
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Arbete").Value
C = C + 1
'5
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Timmar").Value
C = C + 1
'6
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Dagrap").Value
C = C + 1
'7
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Anbud").Value
C = C + 1
'8
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Running").Value
C = C + 1
'8
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Lon").Value
C = C + 1
'8
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Proj_Fakt").Value
C = C + 1
'11
frmProjekt.MSFlexGrid1.TextMatrix(R, C) = RS.Fields("Other").Value


frmSPGProjekt.txtHourCost.Text = RS("KostnadTimme").Value
frmSPGProjekt.txtTotalSum.Text = RS("KostnadSummaArb").Value
frmSPGProjekt.txtKostnadHardware.Text = RS("KostnadHardware").Value


RS.MoveNext
Loop

R = R + 1 ' Lägg till en extra rad för att kunna skriva in text
frmSPGProjekt.MSFlexGrid1.Rows = R + 1
C = 0
frmSPGProjekt.MSFlexGrid1.TextMatrix(R, C) = CurrentProjekt
RS.Close

End Function

och jag kallar på funktionen härifrån:

Private Sub cmdSaveNew_Click()
Call CheckProjectNumber 'Kolla om projektnumret redan finns i databasen
If GoOn = False Then
txtProjNummer.SetFocus
Exit Sub
End If
'******************************************************
Dim DBFileName As String
Dim Dcon As ADODB.Connection
Dim RS As ADODB.Recordset
Dim A As Integer

DBFileName = App.Path & "\Dagbok.mdb"

Set Dcon = New ADODB.Connection
Set RS = New ADODB.Recordset

Dcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & DBFileName
RS.Open "INSERT INTO TBL_Projekt " & "(Proj_Nr, Proj_Kund, Proj_Namn) " & " VALUES (" & "'" & txtProjNummer.Text & "', " & "'" & frmSkapaNytt.cmbProjektKund.Text & "', " & "'" & frmSkapaNytt.txtProjektName.Text & "'" & ")", Dcon

CurrentProjekt = frmSkapaNytt.txtProjNummer
CurrentProjektName = frmSkapaNytt.txtProjektName.Text
CurrentProjektKund = frmSkapaNytt.cmbProjektKund.Text


Dcon.Close
frmSPGProjekt.Show
Unload Me
End Sub

Vet nån vad jag har gjort galet?
Jag är inget proffs på detta

/Tomas

Om Proj_Nr är ett textfält. Kan du ju testa med:

RS.Open "SELECT * FROM TBL_Projekt WHERE Proj_Nr='" & CurrentProjekt & "'", Dcon

Jag var så nära men ändå så långt borta.

Jätte Tack

/Tomas