Funcion que devuelva un dataset error

Salu2 tengo una funcion en VB2005 pero un tengo error le estoy pasando el
parametro de conexion y un parametro de filtrar el procedimiento que al
final me devuelva un dataset para luego llamarlo en un formulario x, el
store procedure corre normal en SQL con el parametro
le pego el codigo para que me puedan ayudar con esta funcion estoy mal en
algo nose que es

Public Function VerRegistros(ByVal Conexion As SqlConnection, ByVal Campa As
String) As DataSet

Dim Dap As New SqlDataAdapter

Dim Cmd As New SqlCommand

Dim Ds As New DataSet

Dim Param As SqlParameter

Try

Cmd.CommandText = "NetRseView"

Cmd.CommandType = CommandType.StoredProcedure

Cmd.Connection = Conexion

Param = Cmd.Parameters.Add("@Cam_cod", SqlDbType.Char, 3, "Cam_cod")

Param.Value = Campa

Dap.SelectCommand = Cmd

Dap.Fill(Ds)

Return VerRegistros

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Function



Saludos.