Problema con Busqueda

[b-jack-b]

Function consult(ByVal TipoConsulta As String, ByVal Tabla As String) As DataSet
Try
myconn = New SqlClient.SqlConnection("Initial Catalog = basedatos; data source = servidor; integrated security = FALSE;Uid=usuario;Pwd=passwod")
Dim daExis As SqlClient.SqlDataAdapter
Dim dsExis As New DataSet
daExis = New SqlClient.SqlDataAdapter(TipoConsulta, myconn)
daExis.Fill(dsExis, Tabla)
If dsExis.Tables(Tabla).Rows.Count < 1 Then
MsgBox("No hay registros", MsgBoxStyle.Information, "")

End If
Return dsExis
Catch ex As Exception
MsgBox("Error en " & ex.Message, MsgBoxStyle.Critical)
End Try