一個窗體，一個TEXT1,一個按鈕，複製一下程式碼即可 Private Sub Form_Load() Dim strAppPath As String strAppPath = App.Path If Right(strAppPath, 1) <> "\" Then strAppPath = strAppPath & "\" End If strAppPath = strAppPath & "BigText.mdb" ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & "" Set cnn = New ADODB.Connection cnn.Open ConnectString End Sub private sub command1_click() dim rs as adodb.recordset dim str as string str="insert into 表(欄位1,欄位2) value("& text1.text &","& text1.text &")" set rs=new adodb.recordset rs.open str,cnn,adopenstatic msgbox"插入成功" end sub記得采納啊