Recordset 是Datal 的一个属性,所以你的 with 块里应该这么写:
.Recordset.AddNew
.Recordset.Fields("款号") = Text1.Text
另外,with 块需要 End With 来结尾
Private Sub GCD(ByRef m As Long, ByRef n As Long)问题出在这里!你调用n1 = GCD(m1, n1)
需要有返回值,sub是没有返回值的,应该是Private function GCD(ByRef m As Long, ByRef n As Long),另外在GSD里要用GCD=返回值才可以!