[Programmer-VB] function

[vbyono]

Function Coba(a As String) As Double
If a = "muda" Then
   usia = 1
   
Else
   If a = "paruhbaya" Then
      usia = 2
   Else
      usia = 3
End If
End If
End Function

Private Sub Command1_Click()
Dim x,x1,a As String
  x = " SELECT * FROM NN WHERE NN.No=1"
  Set x1 = cn.Execute(x)
  a = x1(0)
  Label1.Caption = Coba(a)  ' Kenapa ya Fungsi ini tidak bisa
melakukan penyeleksian ya... 
end sub

' Kenapa ya Fungsi ini tidak bisa melakukan penyeleksian ya... 
Mohon bantuannya,Maklum ya saya Kan pemula...