TableAdapter未更新到Access DataBase

Question

Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
    Try
        Me.User_scoresTableAdapter.Insert(CStr(txtUser.Text), CStr(txtGame.Text), CDec(txtScore.Text), CDate(txtDate.Text))
        Me.User_scoresTableAdapter.Fill(Me.Game_timeDataSet4._User_scores)
        Me.User_scoresTableAdapter.Update(Me.Game_timeDataSet4._User_scores)
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Data Input Error")
    End Try
End Sub

此代码未更新到我的Access数据库。我在填充线后更新。