你首先要判断用户啊
Select Case e.name Case "开发者" Dim Dbsource As String = e.User.ExtendedValues("数据库") '获得用户输入的IP ················
End Select