DataEnv.rssqa111.AddNew

编译错误 ： 未找到方法或数据成员

可是我的数据库sqa111连接是成功的呀~

高手指点一下吧~

？？呵呵不好意思 我刚开始学VB~

我想利用VB中的窗口向access中添加记录

Private Sub cmdok_Click()

On Error GoTo errHandler:
DataEnv.rssqa111.AddNew
Dim str As String
str = txtProName.Text
With DataEnv.rsProInfo
.Fields("ProName") = txtProName.Text
.Fields("SofName") = txtSofName.Text
.Fields("ProAdministrator") = txtProAdministrator.Text
.Fields("TestTeamleader") = txtTestTeamLeader.Text
.Fields("QAMember") = txtQAMember.Text
.Fields("TestMember") = txtTestMember.Text
End With
cmdOK.Enabled = False
cmClose = True
Call RefreshGrid
Call ChangeBrowseState
Exit Sub
errHandler:
MsgBox Er.Description, vbCritical, "错误"
End Sub


代码是这样的

我不知道怎么提问才够详细

请指点~谢谢~