主题：关于软件注册问题

修改代码

Dim dr As DataRow
If dr1.dataRows.Count=0 Then
    msgbox(2)
    dr = dr1.AddNew
Else
    dr = dr1.DataRows(0)
End If
dr("ID") = 1
dr("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "用户姓名","")
dr("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "联系电话" ,"")
dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "公司名称" ,"")
dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP","公司地址" ,"")