Como hacer dos funciones conectar y desconectar vfp

hola quisiera que me puedan ayudar quisiera ser dos funciones, he visto un ejemplo pero no he podido hacer por separado

en funciones

el ejemplo que he visto

solo tiene en una función

function conectar

Local cade,conexión
cade ='dns...'
SQLSETPROP(0,"DispLogin",3)
conexión=Sqlstringconnect(cade)
If conexión >=1
Return conexión
Else
Local Array laError(1)
= Aerror(laError)
Messagebox('Error al conectarse'+Chr(13)+laError(2),16,'Erro')
Quit
Endif