If sle_user.Text="" then
    MessageBox("提示","请输入用户名！")
Else
    If sle_user.Text="lianzheng" and sle_password.Text="820729"
       MessageBox("欢迎使用"，sle_user.Text+",您好"
        open(w_main)
        close(parent)
    Else
        MessageBox("提示"，"密码错误，请重新输入！")
    End If
End If

If sle_user.Text="lianzheng" and sle_password.Text="820729"
缺少then

明显缺少一个右括号！！！
MessageBox("欢迎使用"，sle_user.Text+",您好"