SQL within VB

I'm trying to pass a value from a text box within one form to an SQL statement within another, upon clicking on cmdEdit the value is passed to a variable within a module (Which i think is now global) and the used within the second form.Private Sub

cmdEdit_Click()
AppointmentKey = txtAppKey.Text
frmEditApp.Show
End Sub

Dim sql As String
sql = "Select * From Appointments Where AppointmentKey = " & "'" & AppointmentKey & "'"

I cant get this to be accepted, any ideas why?

 

What error is being returned?

 

It's ok now thanks, i put all the code in a module and read directly from the form. Works fine now.