Passing Dtae Parameters

Hi

I'm trying to add 2 date parameters to the where caluse but not sure how to structure it:

 Can anybody help?

 Public Function GetCategoryPerformance(ByVal PriorityType As String) As DataSet

'*******************************************************

'This web service will return a specific row for a table

'*******************************************************Dim cn As New SqlConnection("data source=CADTRAINING;persist security info=True;initial catalog=pathwaysreporting;user id=cad;password=cad;")

Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * from sp_category_performance where where priority = '" & PriorityType & "'", cn)Dim ds As DataSet = New DataSet

Try

da.Fill(ds, "CategoryPerformance")Catch ex As Exception

Throw New Exception(ex.Message)

End TryReturn ds

End Function

End Class