Visual Basic - Ayuda para hacer esta funcion

Necesito ayuda para hacer esta función:
Es con SQL Server okis?
la clase tiene los sig. campos:
\'variables locales para almacenar los valores de las propiedades
Private mvarId_Sucursal As Integer \'copia local
Private mvarId_Caja As Long \'copia local
Private mvarId_Corte As Long \'copia local
Private mvarId_Tipo As Byte \'copia local
Private mvarId_Movimiento As Long \'copia local
Private mvarFecha As String \'copia local
Private mvarId_Banco As Integer \'copia local
Private mvarReferencia As String \'copia local
Private mvarFecha_Deposito As String \'copia local
Private mvarImporte As Currency \'copia local
Private mvarParidad As Single \'copia local

Y yo necesito una funcion que permita aumantar o disminuir que le pase por referencia los sig. parametros
Public Function fbMovCaja(ByRef nSucursal As Integer, ByRef nCaja As Long, ByRef sTipo As String, ByRef sFormaPago As String, ByRef nCantidad As Currency, ByRef sReferencia As String, ByRef nBanco As Integer) As Boolean
entonces ayudenme a hacer el query para poder encontrar el tipo el cual es opciones ejm:
201)Entrada directa de efvo en moneda nacional
202)Salida directa de efvo en moneda nacional

Con estos parametros debo encontrarla: tipo, moneda y forma de pago---
please HELP ME