>Bear in mind that I haven't touched VFP in 10+ years....
>
>I'm writing this:
>
>

>CLEAR
>sqlProcs = CREATEOBJECT("MyStuff ")
>sqlProcs.ConnectionString = "Data Source=192.168.2.5;Initial Catalog=Spares2;User Id=Kevin;Password=password1"
>
>LOCAL conneted as Boolean
>conneted = sqlProcs.TestConnection()
>
>IF sqlProcs.ErrorOccured
>	? sqlProcs.ErrorMessage
>ELSE
>	? conneted
>ENDIF
>
>
>
>#DEFINE TRUE	.T.
>#DEFINE FALSE	.F.
>#DEFINE NEWLINE CHR(13)
>
>DEFINE CLASS MyStuff AS Custom
>
>	connectionHandle = 0;
>
>	ErrorMessasge = ""
>	ErrorOccured = FALSE
>	
>	ConnectionString = ""
>	PROCEDURE ConnectionString_Access()
>    	RETURN This.ConnectionString 
>	ENDPROC
>
>	PROCEDURE ConnectionString_Assign(PropValue)
>    	This.ConnectionString   = PropValue
>	ENDPROC
>
>	**********************************************************
>	* Function.: TestConnection
>	* Purpose..: Tests a connnection to SQL Server
>	*
>	**********************************************************
>  	FUNCTION TestConnection() AS Boolean
>
>		LOCAL Connected AS Boolean
>		Connected = TRUE
>
>		IF This.ConnectionString = "" THEN
>			ErrorMessasge = "No connection string specified"
>			ErrorOccured = TRUE
>		ENDIF
>		
>		IF NOT ErrorOccured 
>			SQLSETPROP(0,"DispLogin",3)
>
>			TRY
>				connectionHandle = SQLSTRINGCONNECT(This.ConnectionString)
>			CATCH TO exceptionObject
>				AERROR(errorArray)
>		   		ErrorMessasge = "Error " + ALLTRIwM(STR(errorArray(0))) + ". Cannot make connection." + NEWLINE + errorArray(1)
>		   		ErrorOccured = TRUE
>				Connected = FALSE
>			ENDTRY
>				   
>			IF connectionHandle >0
>			   = SQLDISCONNECT(connectionHandle )
>			ENDIF
>			
>		ENDIF
>		
>	RETURN Connected
>
>
>ENDDEFINE
>

>
>When I run this, the connection string property is empty down in TestConnection
>
>What am I doing wrong here???

Why do you need Access and Assign methods for connection? What if you comment them for now?