Problema com FILL?

[Fox_110106]

Prezados,

Uso o SQL 2016 e o VB2015. A partir da internet, comecei a desenvolver um programinha em VB. Logo no começo me deparei com um problema que não consigo resolver.
Parece simples, mas já tentei algumas alternativas sem sucesso e peço a ajuda de vocês.

A fonte de onde peguei o programa usou VB2015 e SQL 2012 (não sei se existe diferença na sintaxe ou compatibilidade.

Enfim, vamos ao problema.

Na conexão uso o seguinte:

Module conexao
    Public conectar As SqlConnection
    Public comando As SqlCommand
    Public local As DataSet
    Public adaptar As SqlDataAdapter
    Public sql As String
    Public resultado As Integer
    Public registro As DataRow
    Public dt As DataSet
    Public cnn As String = "Data Source=Fox;Initial Catalog=Sistema;User Id=sa;Password=********;"
    Public vnivel As String
    Public contador As Integer
End Module

Quando rodo a seguinte rotina:

   Private Sub TB_Senha_Validated(sender As Object, e As EventArgs)
        If TB_Usuario.Text = "" Or TB_Senha.Text = "" Then
            LB_Login.Text = "Insira um usário e uma senha"
            TB_Usuario.Focus()
            Exit Sub
        End If

        sql = "select * login when usuario="
        sql += "'" & TB_Usuario.Text & "' and senha="
        sql += "'" & TB_Senha.Text & "'"

        conectar.Open()
        adaptar = New SqlDataAdapter(sql, conectar)
        local = New DataSet
        conectar.Close()

        adaptar.Fill(local, "login")
        resultado = local.Tables("login").Rows.Count

        If resultado > 0 Then
            registro = local.Tables("login").Rows(0)
            vnivel = registro("nivel")
            BTN_Login.Enabled = True
            BTN_Login.Focus()
        ElseIf resultado = 0 Then
            BTN_Login.Enabled = False
            BTN_Sair.Focus()
        End If
    End Sub

Ele apresenta erro no que marquei em negrito. Informa que:

Ocorreu uma exceção sem tratamento do tipo "System.Data.SqlClient.SqlException" em System.Data.dll

Informações adicionais: Sintaxe incorreta próxima a 'login'.

No SQL está tudo certinho.... Onde estou errando????

Abs
Fox
 

[Fox_110106]

Problema resolvido.... achei o erro....

sql = "select * FROM login WHERE usuario="