vb+access 做登陆界面，一直提示有错误

Dim cnn As New ADODB.Connection

Private Sub Form_Load()
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & App.Path & "\Database1.accdb;Persist Security Info=False"
cnn.CursorLocation = adUseClient
cnn.Open
End Sub

Private Sub Login_Click()
Dim rstLogin As New ADODB.Recordset
Dim sqlstr As String
sqlstr = Text1.Text
rstLogin.Open "SELECT * FROM login where 用户名=" + sqlstr, cnn, adOpenStatic, adLockOptimistic    //  系统一直说这句代码有错，如图所示
End Sub

Private Sub ZhuCe_Click()
Form3.Show
Form2.Hide
End Sub
 

应该是SQL语句不正确或者是传入的类型不正确

----------------------------------------------------------------------

为什么都2021年了还有人用VB呀？

有人在吗 

hello？？？