Al final lo solucioné asi:
  
Código:
         Try
            Dim SqlComm As New SqlCommand("SELECT * FROM tbl9TypSoft WHERE fldTCategoria=@buscar", conection)
            SqlComm.Parameters.Add(New SqlParameter("@buscar", cmbCategoria.SelectedValue()))
            categoria = SqlComm.ExecuteScalar()
        Catch ex As Exception
            MessageBox.Show("Error:" & vbCrLf & ex.Message)
        End Try
  Respecto al sqlcomm.executescalar() lo utilizo porque es el metodo por el cual me devuelve el registro que esta en la primera linea de la primera columna, y como en este caso solo me devuelve un resultado, me bien de perlas utilizarlo xD 
Gracias